home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 6 / CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso / cucd / readers / utils / gui4cli / g4c / gm / colourcode.gc next >
Text File  |  1996-10-28  |  3KB  |  152 lines
  1. G4C
  2.  
  3.  
  4. ; Author: Graham Maddox
  5.  
  6. ;   Date: 1 Oct 1996
  7.  
  8. ; GUI: Finds resistor values. For electronics hobbyists.
  9.  
  10.  
  11.  
  12. WinBig -1 -1 290 124 "ColourCode"
  13. WinSmall 200 0 240 -1
  14. WinType 11110001
  15. WinOut NIL:
  16.  
  17.  
  18. xOnLoad
  19. Gosub colourcode.gc initvar
  20. GuiOpen colourcode.gc
  21.  
  22. xOnClose
  23. GuiQuit colourcode.gc
  24.  
  25.  
  26.  
  27. BOX 0 0 0 0 OUT ICONDROP
  28. BOX 15 6 260 76 OUT BUTTON
  29.  
  30.  
  31.  
  32. xCycler 140 12 90 13 "First Band" cc_first
  33. GadID 2
  34. GadTitle ABOVE
  35. CSTR "Black" "0"
  36. CSTR "Brown" "1"
  37. CSTR "Red" "2"
  38. CSTR "Orange" "3"
  39. CSTR "Yellow" "4"
  40. CSTR "Green" "5"
  41. CSTR "Blue" "6"
  42. CSTR "Purple" "7"
  43. CSTR "Grey" "8"
  44. CSTR "White" "9"
  45.  
  46. xCycler 140 29 90 13 "Second Band" cc_sec
  47. GadID 3
  48. GadTitle ABOVE
  49. CSTR "Black" "0"
  50. CSTR "Brown" "1"
  51. CSTR "Red" "2"
  52. CSTR "Orange" "3"
  53. CSTR "Yellow" "4"
  54. CSTR "Green" "5"
  55. CSTR "Blue" "6"
  56. CSTR "Purple" "7"
  57. CSTR "Grey" "8"
  58. CSTR "White" "9"
  59.  
  60. xCycler 140 46 90 13 "Multiplier" cc_mult
  61. GadID 4
  62. GadTitle ABOVE
  63. CSTR "Black" "black"
  64. CSTR "Brown" "brown"
  65. CSTR "Red" "red"
  66. CSTR "Orange" "orange"
  67. CSTR "Yellow" "yellow"
  68. CSTR "Green" "green"
  69. CSTR "Blue" "blue"
  70. CSTR "Gold" "gold"
  71.  
  72. xCycler 140 63 90 13 "Tolerance" cc_tol
  73. GadID 5
  74. GadTitle ABOVE
  75. CSTR "Brown" "±1%"
  76. CSTR "Red" "±2%"
  77. CSTR "Gold" "±5%"
  78. CSTR "Silver" "±10%"
  79. CSTR "None" "±20%"
  80.  
  81. Text 20 88 250 13 "" 70 BOX
  82. GadID 1
  83.  
  84. xButton 20 105 90 12 "Calculate"
  85. Gosub colourcode.gc calc
  86.  
  87. xButton 210 105 60 12 "Quit"
  88. GuiQuit colourcode.gc
  89.  
  90.  
  91.  
  92. xRoutine initvar
  93. Setvar cc_first "1"
  94. Setvar cc_sec "0"
  95. Setvar cc_mult "brown"
  96. Setvar cc_tol "±5%"
  97. Update colourcode.gc 2 1
  98. Update colourcode.gc 3 0
  99. Update colourcode.gc 4 0
  100. Update colourcode.gc 5 2
  101. Return
  102.  
  103. xRoutine calc
  104. Setvar cc_res ""
  105. DoCase $cc_mult
  106.    Case = "black"
  107.       Appvar cc_res '$cc_first'
  108.       Appvar cc_res '$cc_sec'
  109.       Appvar cc_res "R"
  110. BREAK
  111.    Case = "brown"
  112.       Appvar cc_res '$cc_first'
  113.       Appvar cc_res '$cc_sec'
  114.       Appvar cc_res "0R"
  115. BREAK
  116.    Case = "red"
  117.       Appvar cc_res '$cc_first'
  118.       Appvar cc_res "K"
  119.       Appvar cc_res '$cc_sec'
  120. BREAK
  121.    Case = "orange"
  122.       Appvar cc_res '$cc_first'
  123.       Appvar cc_res '$cc_sec'
  124.       Appvar cc_res "K"
  125. BREAK
  126.    Case = "yellow"
  127.       Appvar cc_res '$cc_first'
  128.       Appvar cc_res '$cc_sec'
  129.       Appvar cc_res "0K"
  130. BREAK
  131.    Case = "green"
  132.       Appvar cc_res '$cc_first'
  133.       Appvar cc_res "M"
  134.       Appvar cc_res '$cc_sec'
  135. BREAK
  136.    Case = "blue"
  137.       Appvar cc_res '$cc_first'
  138.       Appvar cc_res '$cc_sec'
  139.       Appvar cc_res "M"
  140. BREAK
  141.    Case = "gold"
  142.       Appvar cc_res "$cc_first"
  143.       Appvar cc_res "R"
  144.       Appvar cc_res '$cc_sec'
  145. BREAK
  146. EndCase
  147. Update colourcode.gc 1 "Resistor Value: $cc_res @ $cc_tol"
  148. Return
  149.  
  150.  
  151.  
  152.